home *** CD-ROM | disk | FTP | other *** search
/ The SelectWare System Volume 5 #3 / Selectware - The Ultimate Software Demonstration System - Selectware.ISO / bor10012 / rtsmp.pak / RAND.OVR < prev    next >
Encoding:
Text File  |  1992-06-10  |  171 b   |  4 lines
  1. /* Rexx code for ObjectVision @RAND command (registered by register.ovr) */
  2. /* Purpose: return a random number from 0 to 1, inclusive */
  3. return RANDOM(0,100000)/100000
  4.